home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / wwais103 / newsrc.frm < prev    next >
Text File  |  1995-05-08  |  4KB  |  148 lines
  1. VERSION 2.00
  2. Begin Form new_src_form 
  3.    BackColor       =   &H00808080&
  4.    Caption         =   "Add/Change Source"
  5.    ClientHeight    =   2760
  6.    ClientLeft      =   1515
  7.    ClientTop       =   3675
  8.    ClientWidth     =   7380
  9.    Height          =   3165
  10.    Left            =   1455
  11.    LinkMode        =   1  'Source
  12.    LinkTopic       =   "Form1"
  13.    ScaleHeight     =   2760
  14.    ScaleWidth      =   7380
  15.    Top             =   3330
  16.    Width           =   7500
  17.    Begin CommandButton cancel 
  18.       Caption         =   "&Cancel"
  19.       Height          =   375
  20.       Left            =   3720
  21.       TabIndex        =   9
  22.       Top             =   2160
  23.       Width           =   1095
  24.    End
  25.    Begin CommandButton ok 
  26.       Caption         =   "&OK"
  27.       Height          =   375
  28.       Left            =   2400
  29.       TabIndex        =   8
  30.       Top             =   2160
  31.       Width           =   1095
  32.    End
  33.    Begin TextBox s_add_database 
  34.       BackColor       =   &H0080FF80&
  35.       FontBold        =   -1  'True
  36.       FontItalic      =   0   'False
  37.       FontName        =   "System"
  38.       FontSize        =   9.75
  39.       FontStrikethru  =   0   'False
  40.       FontUnderline   =   0   'False
  41.       Height          =   375
  42.       Left            =   1200
  43.       TabIndex        =   7
  44.       Top             =   1560
  45.       Width           =   6015
  46.    End
  47.    Begin TextBox s_add_server 
  48.       BackColor       =   &H0080FF80&
  49.       FontBold        =   -1  'True
  50.       FontItalic      =   0   'False
  51.       FontName        =   "System"
  52.       FontSize        =   9.75
  53.       FontStrikethru  =   0   'False
  54.       FontUnderline   =   0   'False
  55.       Height          =   375
  56.       Left            =   1200
  57.       TabIndex        =   6
  58.       Top             =   1080
  59.       Width           =   6015
  60.    End
  61.    Begin TextBox s_add_port 
  62.       BackColor       =   &H0080FF80&
  63.       FontBold        =   -1  'True
  64.       FontItalic      =   0   'False
  65.       FontName        =   "System"
  66.       FontSize        =   9.75
  67.       FontStrikethru  =   0   'False
  68.       FontUnderline   =   0   'False
  69.       Height          =   375
  70.       Left            =   1200
  71.       TabIndex        =   5
  72.       Top             =   600
  73.       Width           =   6015
  74.    End
  75.    Begin TextBox s_add_title 
  76.       BackColor       =   &H0080FF80&
  77.       FontBold        =   -1  'True
  78.       FontItalic      =   0   'False
  79.       FontName        =   "System"
  80.       FontSize        =   9.75
  81.       FontStrikethru  =   0   'False
  82.       FontUnderline   =   0   'False
  83.       Height          =   375
  84.       Left            =   1200
  85.       TabIndex        =   4
  86.       Top             =   120
  87.       Width           =   6015
  88.    End
  89.    Begin Label Label4 
  90.       BackColor       =   &H00808080&
  91.       Caption         =   "Database:"
  92.       Height          =   255
  93.       Left            =   120
  94.       TabIndex        =   3
  95.       Top             =   1560
  96.       Width           =   975
  97.    End
  98.    Begin Label Label3 
  99.       BackColor       =   &H00808080&
  100.       Caption         =   "Server:"
  101.       Height          =   255
  102.       Left            =   360
  103.       TabIndex        =   2
  104.       Top             =   1200
  105.       Width           =   615
  106.    End
  107.    Begin Label Label2 
  108.       BackColor       =   &H00808080&
  109.       Caption         =   "Port:"
  110.       Height          =   255
  111.       Left            =   480
  112.       TabIndex        =   1
  113.       Top             =   720
  114.       Width           =   495
  115.    End
  116.    Begin Label Label1 
  117.       BackColor       =   &H00808080&
  118.       Caption         =   "Title:"
  119.       Height          =   255
  120.       Left            =   480
  121.       TabIndex        =   0
  122.       Top             =   240
  123.       Width           =   495
  124.    End
  125. End
  126. Sub cancel_Click ()
  127.  
  128.     s_change_accepted = False
  129.  
  130.     new_src_form.Hide
  131.  
  132. End Sub
  133.  
  134. Sub ok_Click ()
  135.  
  136.     src = sources_form.s_source_list.listcount
  137.     s_port(src) = Val(s_add_port.text)
  138.     s_service(src) = s_add_server.text
  139.     s_database(src) = s_add_database.text
  140.     sources_form.s_source_list.AddItem s_add_title.text
  141.  
  142.     s_change_accepted = True
  143.  
  144.     new_src_form.Hide
  145.  
  146. End Sub
  147.  
  148.